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-- RectanglesA.Mesa Edited by Sandman on May 12, 1978 2:48 PM 

DIRECTORY 

BitBltDefs: FROM "bitbl tdef s" USING [BBptr, BBTable, BITBLT], 
InlineDefs: FROM "in! inedef s" USING [BITAND], 
IODefs: FROM M 1odefs M USING [CR, DEL, SP], 
RectangleDefs: FROM "rectangledefs" USING [ 

BMHandle, BMptr, FAptr, FCDptr, FontHeader, GrayArray, GrayPtr, minheight, 
minwidth, RectangleErrorCode, Rptr, xCoord, yCoord]; 

RectanglesA: PROGRAM 

EXPORTS RectangleDefs SHARES RectangleDefs ■ 
BEGIN OPEN RectangleDefs; 

-- CHARACTER constants 

CR: CHARACTER ■ IODefs. CR; 
Space: CHARACTER ■ IODefs. SP; 
DEL: CHARACTER - IODefs. DEL; 

-- GLOBAL PUBLIC Data (all PUBLIC for initialization guy ??) 

defaultmapdata: PUBLIC BMHandle ♦- NIL; 

defaultpfont: PUBLIC FAptr <- NIL; -- points to self relative ptrs 

def aul tl ineheight: PUBLIC CARDINAL; -- assuming all lines equal; 

SevenBitCharacter: TYPE » CHARACTER[OC. . 177C] ; 

defaultcharwidths: PACKED ARRAY SevenBitCharacter OF [0..256); 

-- Bitmap Rectangle Routines 

MoveRectangle: PUBLIC PROCEDURE [rectangle: Rptr, x: xCoord, y: yCoord] ■ 
BEGIN 

bbtable: ARRAY [0 . .SIZE[BitBltDef s. BBTable]] OF WORD; 
bbptr: BitBl tDefs .BBptr « EVEN[BASE[bbtable]] ; 
oldx: xCoord a rectangle. xO ; 
oldw: xCoord ■ rectangle. cw; 
oldy: yCoord ■ rectangle. yO ; 
oldh: yCoord ■ rectangle. ch ; 
mapaddr: BMptr ■ rectangle. bitmap. addr; 
wordsperl ine: CARDINAL ■ rectangle. bitmap. wordsperl ine; 
dlx, dw: xCoord; 
dty, dh: yCoord; 

IF x - oldx AND y ■ oldy THEN RETURN; 
rectangle. xO <- x; 
rectangle. yO ♦- y; 
FixupRectangle[ rectangle]; 
IF rectangle. visible ■ FALSE THEN RETURN; 
dw «- MIN[rectangle.cw, oldw]; 
dh «- MIN[rectangle.ch, oldh]; 
bbptrt «- [0, FALSE, FALSE, block, replace, 0, mapaddr, wordsperl ine, x, 

y, dw, dh, mapaddr, wordsperl ine, oldx, oldy, 0, 0, 0, 0]; 
BitBl tDefs. BITBLT[bbptr]; 

IF x # oldx THEN -- first check if moved in x 
BEGIN 
IF x > oldx THEN 

BEGIN dlx <- oldx; dw «- MIN[x-oldx, oldw]; END 
ELSE 
BEGIN 

dlx <- MAX[oldx, x+MIN[rectangle.cw, oldw]]; 
dw «- (oldx+oldw) - dlx; 
END; 
dty <- oldy; 
dh «- oldh; 

bbptrt ♦- [,,, gray, replace,,,, dlx, dty, dw, dh, ,,,,,,,]; 
B itBl tDefs. BITBLT[bbptr]; 
END; 
IF y // oldy THEN ~- now see if moved in y 
BEGIN 
IF y > oldy THEN 

BEGIN dty ♦- oldy; dh <- MIN[y-oldy, oldh]; END 
ELSE 
BEGIN 

dty «- MAX[oldy, y+MIN[ rectangle. ch, oldh]]; 
dh <r (oldy+oldh)-dty; 
END; 
dlx <- oldx; 
dw «- oldw; 
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bbptrt <- [,,, gray, replace,,,, dlx, dty, dw, dh, ,,,,,,,]; 
BitBUDefs. BITBLT[bbptr]; 
END; 
END; 

GrowRectangle: PUBLIC PROCEDURE [rectangle: Rptr, width: xCoord, height: yCoord] 
BEGIN 

mapaddr: BMptr ■ rectangle. bitmap. addr; 
wordsperl ine: CARDINAL « rectangle. bitmap. wordsperl ine; 
clearwords: GrayArray *• [0, 0, 0, 0]; 

graywords: GrayArray *- [125252B, 52525B, 125252B, 52525B]; 
clear: GrayPtr - ©clearwords; 
gray: GrayPtr - ©graywords; 

IF width * rectangle. width AND height ■ rectangle. height THEN RETURN; 
ClearBoxInRectangle[rectangle, 0, rectangle. cw, 0, rectangle. ch, clear]; 
rectangle .width «- width; 
rectangle. height «- height; 
F i xu p Rec t an gle[ rectangle]; 

ClearBoxInRectangle[rectangle, 0, rectangle. cw, 0, rectangle. ch, gray]; 
RETURN; 
END; 

ClearBoxInRectangle: PUBLIC PROCEDURE [ 

rectangle: Rptr, xO, width: xCoord, yO, height: yCoord, gray: GrayPtr] - 

BEGIN 

bbtable: ARRAY [0. .SIZE[BitBltDef s.BBTable]] OF WORD; 

bbptr: BitBUDefs .BBptr » EVEN[BASE[bbtable]] ; 

mapaddr: BMptr «- rectangle. bitmap. addr ; 

wordsperl ine: CARDINAL a rectangle. bitmap. wordsperl ine; 

dlx: xCoord «- rectangle. xO+xO; 

dty: yCoord «- rectangle. yO+yO; 

dw: xCoord <- MIN[rectangle. cw, width]; 

dh: yCoord <- MIN[rectangle. ch, height]; 

bbptrt ♦- [0, FALSE, FALSE, gray, replace, 0, mapaddr, wordsperl ine, 

dlx, dty, dw, dh, mapaddr, wordsperl ine, dlx, dty, gray[0], 

gray[l], gray[2], gray[3]]; 
BitBltDefs.BITBLT[bbptr]; 
END; 

DrawBoxInRectangle: PUBLIC PROCEDURE [ 

rectanglef Rptr, xO, width: xCoord, yO, height: yCoord] ■ 

BEGIN 

bbtable: ARRAY [0 . .SIZE[BitBl tDef s.BBTable]] OF WORD; 

bbptr: BitBl tDef s .BBptr ■ EVEN[BASE[bbtable]] ; 

mapaddr: BMptr «- rectangle, bitmap. addr ; 

wordsperl ine: INTEGER ■ rectangle. bitmap .wordsperl ine; 

dlx: xCoord <- rectangle. xO+xO; 

dty: yCoord <- rectangle. yO+yO; 

dw: xCoord <- MIN[rectangle. cw, width]; 

dh: yCoord <- MIN[rectangle. ch, height]; 

bbptrt <- [0, FALSE, FALSE, gray, replace, 0, mapaddr, wordsperl ine, 

dlx, dty, dw, 1, mapaddr, wordsperl ine, dlx, dty, -1, -1, -1, -1]; 
BitBl tDef s.BITBLT[bbptr]; 

bbptrt <- [,,, gray,,,,,,, 1, dh,, ]; 

BitBl tDef s.BITBLT[bbptr]; 

bbptrt <- [,,,,,,,, dlx+dw-1, dty, 1, dh, ,,,,,,, ]; 

BitBl tDef s.BITBLT[bbptr]; 

bbptrt <- [,,,,,,,, dlx, dtyfdh-1, dw, 1,,,,,,,,]; 

BitBl tDef s.BITBLT[bbptr]; 

END; 

InvertBoxInRectangle: PUBLIC PROCEDURE [ 

rectangle: Rptr, xO, width: xCoord, yO, height: yCoord] a 

BEGIN 

bbtable: ARRAY [0. .SIZE[BitBl tDef s.BBTable]] OF WORD; 

bbptr: BitBUDefs .BBptr - EVEN[BASE[bbtable]] ; 

mapaddr: BMptr «- rectangle, bitmap. addr ; 

wordsperl ine: CARDINAL * rectangle. bitmap .wordsperl ine; 

dlx: xCoord «- rectangle. xO+xO; 

dty: yCoord «- rectangle. yO+yO; 

dw: xCoord <- MIN[rectangle. cw, width]; 

dh: yCoord *- MIN[rectangle. ch, height]; 

bbptrt <- [0, FALSE, FALSE, compliment, replace, 0, mapaddr, wordsperl ine, 

dlx, dty, dw, dh, mapaddr, wordsperl ine, dlx, dty,,,,]; 
BitBl tDef s.BHBLT[bbptr]; 
END; 
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ScrollBoxInRectangle: PUBLIC PROCEDURE [ 

rectangle: Rptr, xO, width: xCoord, yO, height: yCoord, incr: INTEGER] 

BEGIN 

bbtable: ARRAY [0. .SIZE[BitBltDef s .BBTable]] OF WORD; 

bbptr: BitBl tDef s.BBptr ■ EVEN[BASE[bbtable]]; 

mapaddr: BMptr «- rectangle, bitmap .addr; 

wordsperl ine: CARDINAL ■ rectangle. bitmap. wordsperl ine; 

dlx: xCoord «- rectangle. xO+xO; 

dw: xCoord «- MIN[rectangle. cw, width]; 

dh: yCoord ♦* MIN[rectangle. ch, (height-incr)] ; 

dty: yCoord; 

sty: yCoord; 

IF incr > THEN 

BEGIN 

dty <- rectangle. yO+yO; 

sty <- dty+incr; 

END 
ELSE 

BEGIN 

sty «- rectangle. yO+yO; 

dty «- sty+incr; 

END; 
bbptrt <- [0, FALSE, FALSE, block, replace, 0, mapaddr, wordsperl ine, 

dlx, dty, dw, dh, mapaddr, wordsperl ine, dlx, sty,,,,]; 
BitBl tDef s.BITBLT[bbptr]; 
END; 

FixupRectangle: PROCEDURE [rectangle: Rptr] ■ 
BEGIN 

bmw: xCoord; 
bmh: yCoord; 
IF rectangle. bitmap ■ NIL OR rectangle. bitmap .addr ■ NIL THEN 

BEGIN 

rectangle. visible <- FALSE; 

RETURN; 

END; 
bmh <- rectangle. bitmap. height; 
bmw ♦- rectangle. bitmap. width; 
IF rectangle. xO+rectangle. width > bmw THEN 

rectangle. cw «- IF rectangle. xO > bmw THEN ELSE bmw-rectangle.xO 
ELSE 

rectangle. cw <- rectangle. width; 
IF rectangle. yO+rectangle. height > bmh THEN 

rectangle. ch «- IF rectangle. yO > bmh THEN ELSE bmh-rectangle.yO 
ELSE 

rectangle. ch <- rectangle. height; 
IF rectangle. xO+minwidth > bmw OR rectangle. yO+minheight > bmh THEN 

rectangle. visible <- FALSE 
ELSE 

rectangle. visible *- TRUE; 
END; 

WriteRectangleChar: PUBLIC PROCEDURE [ 

rectangle: Rptr, x: xCoord, y: yCoord, char: CHARACTER, pfont: FAptr] 

RETURNS[xCoord, yCoord] - 

BEGIN 

-- define locals and init them 

bbtable: ARRAY [0. .SIZE[BitBl tDef s. BBTable]] OF WORD; 

bbptr: BitBl tDef s.BBptr ■ EVEN[BASE[bbtable]]; 

cw: FCDptr; 

code: CARDINAL <- LOOPHOLE[char] ; 

cwidth: xCoord; 

-- following is awful, undo later signed: Smokey 

lineheight: CARDINAL - LOOPHOLE[(pfont-SIZE[FontHeader])t[0]] ; 

IF pfont - defaultpfont AND char <- DEL THEN 

cwidth *- def aul tcharwidths[char] 
ELSE cwidth *~ ComputeCharWidth[char, pfont]; 
IF rectangle. visible - FALSE THEN 

IF rectangle. options .Notelnvisible THEN 

SIGNAL RectangleError[rectangle, NotVisible] 

ELSE RETURN[x, y]; 
IF y+lineheight >■ rectangle. ch THEN 

IF rectangle. options. NoteOverf low THEN 

SIGNAL Re c t ang 1 eEr ror [ rectangle, Bo ttomOverf low] 

ELSE RETURN[x, y]; 
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IF x+cwidth > rectangle. cw THEN 

IF rectangle. options. NoteOverflow THEN 

SIGNAL RectangleError[rectangle, RightOverf low] 
ELSE RETURN[x, y]; 
bbptrt «- [ 
pad: 0, 

sourcealt: FALSE, 
destalt: FALSE, 
sourcetype: block, 
function: paint, 
unused: , 

dbca: rectangle. bitmap. addr , 
dbmr: rec tangle. bitmap. word sper 1 ine, 
dlx: x+rectangle.xO, 
dty:, 
dw: 16, 
dh:, 
sbca:, 
sbmr: 1, 
six: 0, 
sty: 0, 

grayO:, grayl:, gray2:, gray3:]; 
DO 

cw 4- LOOPHOLE[pfont[code]+LOOPHOLE[pfont,CARDINAL]+code]; 
bbptr.dty <- y + rectangle. yO + cw. height; 
bbptr.sbca «- cw - (bbptr.dh 4- cw. displacement) ; 
IF cw.HasNoExtension THEN 

BEGIN 

bbptr.dw «- cw.widthORext; 

BitBltDefs.BITBLT[bbptr]; 

EXIT 

END 
ELSE 

BEGIN 

BitBltDefs.BITBLT[bbptr]; 

bbptr.dlx «- bbptr.dlx+16; 

END; 
code «- cw.widthORext; 
ENDLOOP; 
RETURN[x+cwidth, y]; 
END; 

WriteRectangleString: PUBLIC PROCEDURE [ 

rectangle: Rptr, x: xCoord, y: yCoord, str: STRING, pfont: FAptr] 

RETURNS[xCoord, yCoord] ■ 

BEGIN 

i: CARDINAL; 

FOR i IN [0.. str. length) DO 

[x, y] ♦- WriteRectangleChar[rectangle, x, y, str[i], pfont]; 

ENDLOOP; 
RETURN[x,y] 
END; 

CursorToRecCoords: PUBLIC PROCEDURE [rectangle: Rptr, x: xCoord, y: yCoord] 
RETURNS[xCoord, yCoord] - 
BEGIN 

rx: xCoord; 
ry: yCoord; 

rx 4- x - (rectangle. xO + rectangle. bitmap. xO) ; 
ry <- y - (rectangle. yO + rectangle. bitmap. yO) ; 
RETURN[rx, ry]; 
END; 

CursorToMapCoords: PUBLIC PROCEDURE [mapdata: BMHandle, x: xCoord, y: yCoord] 
RETURNS [mapx: xCoord, mapy: yCoord] ■ 
BEGIN 

-- NOTE I ! if bitmap ptr not supplied then use system default... 
IF mapdata - NIL THEN mapdata 4- def aul tmapdata; 
mapx 4- MAX[0, MIN[mapdata. width , INTEGER[x - mapdata. xO]]]; 
mapy 4- MAX[0, MIN[mapdata. height , INTEGER[y - mapdata. yO]]]; 
RETURN[mapx, mapy] 
END; 

RectangleError: PUBLIC SIGNAL [rectangle: Rptr, error: RectangleErrorCode] * CODE; 

EVEN: PROCEDURE[v: UNSPECIFIED] RETURNS [UNSPECIFIED] - 
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BEGIN 

-- make an even value by rounding v up 

RETURN[v+InlineDefs.BITAND[v, 1]]; 

END; 

- Font Stuff 

ComputeCharWidth: PUBLIC PROCEDURE [char: CHARACTER, font: POINTER] RETURNS [CARDINAL] 
BEGIN 

w: INTEGER «■ 0; 
code: CARDINAL; 
cw: FCDptr; 

temp: UNSPECIFIED; — because FCDptr's are self relative 
fontdesc: DESCRIPTOR FOR ARRAY OF FCDptr <- DESCRIPTOR[font, 256]; 
IF char « CR THEN char «- Space; 
IF char < Space THEN 

RETURN[ComputeCharWidth['t, font] + 
ComputeCharWidth[ 
LOOPHOLE[LOOPHOLE[char,INTEGER]+100B, CHARACTER], font]]; 
code <- LOOPHOLE[char]; 
IF font « defaultpfont AND char <■ DEL THEN 

RETURN[defaultcharwidths[char]] 
ELSE -- now compute the width of this character 
DO 

temp «- font + LOOPHOLE[code, CARDINAL]; 

cw «- LOOPHOLE[fontdesc[LOOPHOLE[code,CARDINAL]]+temp, FCDptr]; 

IF cw.HasNoExtension THEN EXIT; 

w <- w+16; 

code 4- cw.widthORext; 

ENDLOOP; 
RETURN [w + cw.widthORext]; 
END; 

GetDefaultFont: PUBLIC PROCEDURE RETURNS [FAptr, CARDINAL] ■ 
BEGIN 

RETURN[defaultpfont, default! ineheight]; 
END; 

END. of RectanglesA 



